PERL User Defined Functions